Filename: /text/sbasic/shared/03104500.xhp

IsUnoStruct Function [Runtime]
IsUnoStruct 関数 [実行時](hd_id3146117.1)

Returns True if the given object is a Uno struct.
与えられたオブジェクトが Uno 構造型であれば True を返します。(par_id3146957.2)

Syntax:
構文:(hd_id3148538.3)

IsUnoStruct( Uno type )
IsUnoStruct( Uno type name )(par_id3155341.4)

Return value:
戻り値:(hd_id3148473.5)

Bool
ブール型(par_id3145315.6)

Parameters:
パラメータ:(hd_id3145609.7)

Uno type : A UnoObject
Uno type name:Uno タイプの名前(par_id3148947.8)

Example:
例:(hd_id3156343.9)

Sub Main
Sub Main(par_idN10632.)

Dim bIsStruct
Dim bIsStruct(par_idN10635.)

' Instantiate a service
' サービスを開始(par_idN10638.)

Dim oSimpleFileAccess
Dim oSimpleFileAccess(par_idN1063B.)

oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )
oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )(par_idN1063E.)

bIsStruct = IsUnoStruct( oSimpleFileAccess )
bIsStruct = IsUnoStruct( oSimpleFileAccess )(par_idN10641.)

MsgBox bIsStruct ' Displays False because oSimpleFileAccess is NO struct
MsgBox bIsStruct ' oSimpleFileAccess は構造体ではないため False と表示(par_idN10644.)

' Instantiate a Property struct
' Property 構造体を開始(par_idN10649.)

Dim aProperty As New com.sun.star.beans.Property
Dim aProperty As New com.sun.star.beans.Property(par_idN1064D.)

bIsStruct = IsUnoStruct( aProperty )
bIsStruct = IsUnoStruct( aProperty )(par_idN10650.)

MsgBox bIsStruct ' Displays True because aProperty is a struct
MsgBox bIsStruct ' aProperty は構造体であるため True と表示(par_idN10653.)

bIsStruct = IsUnoStruct( 42 )
bIsStruct = IsUnoStruct( 42 )(par_idN10658.)

MsgBox bIsStruct ' Displays False because 42 is NO struct
MsgBox bIsStruct ' 42 は構造体ではないため False と表示(par_idN1065B.)

End Sub
End Sub(par_idN10660.)